home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
alangsbs.zip
/
CLEAR.MAC
< prev
next >
Wrap
Text File
|
1991-11-24
|
846b
|
20 lines
;---------------------------------------------------------------
; CLEAR -- Clears the entire visible screen buffer
; Last update 3/16/89
;
; Caller must pass:
; In VidAddress: The name of the string to be poked at
; In TheChar: The character to be pocked into the string
; In ToPos: The 0-based position in the string to poke to
; Action: Pokes character passed in TheChar into string
; passed in Target to position passed in ToPos.
; The first character in the string is 0, etc.
;---------------------------------------------------------------
Clear MACRO VidAddress,ClearAtom,BufLength
les DI,DWORD PTR VidAddress
mov AX,ClearAtom
mov CX,BufLength
rep stosw
GotoXY 0,0
ENDM